home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0669.ZIP / RECEIVE.PRG < prev    next >
Text File  |  1986-11-10  |  285b  |  18 lines
  1. USE DATAFILE
  2. INDE ON ORDER_NO TO TEMP1
  3. SET INDE TO TEMP1
  4. SELE 2
  5. USE TWO_ONE
  6. INDE ON ORDER_NO TO TEMP2
  7. SET INDE TO TEMP2
  8. SELE 1
  9. UPDA ON ORDER_NO FROM TWO_ONE ;
  10. REPL STATUS WITH B->STATUS, DATAFIELD1 WITH B->DATAFIELD1
  11. CLOS DATA
  12. ERASE TEMP1.NDX
  13. ERASE TEMP2.NDX
  14. RETU
  15.  
  16.  
  17.  
  18.